home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
301-325
/
disk_308
/
freq
/
examples
/
extract_zoo
< prev
next >
Wrap
Text File
|
1992-05-06
|
789b
|
39 lines
/* Extract_Zoo (Arexx) - uses the ZOO command to extract Zoo'ed files */
/* ** Note ** This program assumes that you have the 'ZOO' program located
in your SYS:C directory */
if ~(Show('P', 'FileRequester')) then
do
ADDRESS COMMAND "Run >NIL: DEVS:Freq"
ADDRESS COMMAND "WaitForPort FileRequester"
if ~(Show('P', 'FileRequester')) then
do
say "UnAble to Load FileRequester"
exit
end
end
OPTIONS RESULTS
ADDRESS "FileRequester"
'SetPattern'
'SetFileName'
more = "TRUE"
do while more = "TRUE"
'SetTitle Select a ZOO File to Extract'
'DisplayDef'
'GETFILENAME'
if (RC = 0) then
do
say "ZOO Extracting File: " Result
ADDRESS COMMAND "SYS:C/ZOO x//" '"' || Result || '"'
end
else
do
more = "FALSE"
say 'Operation Canceled'
end
end
exit 0